-module (pif2).
-export ([pif/1]).

pif(X) -> [
	{A,B,C} ||
	A <- lists:seq(1,X),
	B <- lists:seq(1,X),
	C <- lists:seq(1,X),
	A+B+C =< X,	
	A*A+B*B=:=C*C
].